home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
STRINGS
/
PACKAGE6
/
WRITE.DOC
< prev
next >
Wrap
Text File
|
1990-07-25
|
1KB
|
39 lines
-----------------------------------------------------------------------------
WriteString
-----------------------------------------------------------------------------
declaration: procedure WriteString (var OutputFile:
text;
AString:
TypeString);
purpose: Writes to the outputfile, the contents of AString.Packed
array up to length
preconditions: OutputFile open. AString is declared and the length is
correct
postconditions: OutputFile receives the values in _PackedArray up to _Length
special cases: None
example: var
Name:
typeString;
OutputFile:
text;
begin
.
.
.
write(OutputFile,'Name: ');
WriteString(OutputFile,Name);
writeln(OutputFile)
.
.
.
end
-----------------------------------------------------------------------------